home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / select4.fr_ / select4.fr
Text File  |  1995-07-04  |  6KB  |  202 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Wildcard and Range SELECTer"
  5.    ClientHeight    =   3735
  6.    ClientLeft      =   1740
  7.    ClientTop       =   2490
  8.    ClientWidth     =   7575
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   4140
  19.    Left            =   1680
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   3735
  22.    ScaleWidth      =   7575
  23.    Top             =   2145
  24.    Width           =   7695
  25.    Begin VB.CommandButton cmdLookup 
  26.       Caption         =   "&Look Up"
  27.       Default         =   -1  'True
  28.       Height          =   555
  29.       Left            =   2100
  30.       TabIndex        =   8
  31.       Top             =   2880
  32.       Width           =   1335
  33.    End
  34.    Begin VB.TextBox txtEndYear 
  35.       BeginProperty Font 
  36.          name            =   "MS Sans Serif"
  37.          charset         =   0
  38.          weight          =   400
  39.          size            =   8.25
  40.          underline       =   0   'False
  41.          italic          =   0   'False
  42.          strikethrough   =   0   'False
  43.       EndProperty
  44.       Height          =   285
  45.       Left            =   3840
  46.       TabIndex        =   4
  47.       Top             =   2280
  48.       Width           =   855
  49.    End
  50.    Begin VB.TextBox txtStartYear 
  51.       BeginProperty Font 
  52.          name            =   "MS Sans Serif"
  53.          charset         =   0
  54.          weight          =   400
  55.          size            =   8.25
  56.          underline       =   0   'False
  57.          italic          =   0   'False
  58.          strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   285
  61.       Left            =   2400
  62.       TabIndex        =   3
  63.       Top             =   2280
  64.       Width           =   855
  65.    End
  66.    Begin VB.TextBox txtPartialTitle 
  67.       BeginProperty Font 
  68.          name            =   "MS Sans Serif"
  69.          charset         =   0
  70.          weight          =   400
  71.          size            =   8.25
  72.          underline       =   0   'False
  73.          italic          =   0   'False
  74.          strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   315
  77.       Left            =   2400
  78.       TabIndex        =   2
  79.       Top             =   1800
  80.       Width           =   4635
  81.    End
  82.    Begin VB.CommandButton cmdClose 
  83.       Caption         =   "&Close"
  84.       Height          =   555
  85.       Left            =   4200
  86.       TabIndex        =   1
  87.       Top             =   2880
  88.       Width           =   1335
  89.    End
  90.    Begin VB.ListBox lstTitles 
  91.       BeginProperty Font 
  92.          name            =   "MS Sans Serif"
  93.          charset         =   0
  94.          weight          =   400
  95.          size            =   8.25
  96.          underline       =   0   'False
  97.          italic          =   0   'False
  98.          strikethrough   =   0   'False
  99.       EndProperty
  100.       Height          =   1230
  101.       Left            =   480
  102.       TabIndex        =   0
  103.       Top             =   240
  104.       Width           =   6555
  105.    End
  106.    Begin VB.Label Label3 
  107.       AutoSize        =   -1  'True
  108.       BackColor       =   &H00C0C0C0&
  109.       Caption         =   "and"
  110.       Height          =   195
  111.       Left            =   3360
  112.       TabIndex        =   7
  113.       Top             =   2340
  114.       Width           =   330
  115.    End
  116.    Begin VB.Label Label2 
  117.       AutoSize        =   -1  'True
  118.       BackColor       =   &H00C0C0C0&
  119.       Caption         =   "Published between:"
  120.       Height          =   195
  121.       Left            =   540
  122.       TabIndex        =   6
  123.       Top             =   2340
  124.       Width           =   1680
  125.    End
  126.    Begin VB.Label Label1 
  127.       AutoSize        =   -1  'True
  128.       BackColor       =   &H00C0C0C0&
  129.       Caption         =   "Title includes text:"
  130.       Height          =   195
  131.       Left            =   540
  132.       TabIndex        =   5
  133.       Top             =   1860
  134.       Width           =   1590
  135.    End
  136. End
  137. Attribute VB_Name = "Form1"
  138. Attribute VB_Creatable = False
  139. Attribute VB_Exposed = False
  140. Option Explicit
  141.     
  142. ' Change the following to point to your copy of BIBLIO.MDB.
  143.     
  144. Private Sub cmdLookup_Click()
  145.     Dim db As DATABASE
  146.     Dim dbName As String
  147.     Dim rs As Recordset
  148.     Dim sql As String
  149.     Dim titleText As String, startYear As String, endYear As String
  150.     
  151.     ' Set up the error handler.
  152.     
  153.     On Error GoTo LookupError
  154.     
  155.     lstTitles.Clear
  156.     
  157.     titleText = IIf(txtPartialTitle <> "", txtPartialTitle, "*")
  158.     startYear = IIf(IsNumeric(txtStartYear), txtStartYear, "1")
  159.     endYear = IIf(IsNumeric(txtEndYear), txtEndYear, "9999")
  160.     
  161.    ' Get the database name and open the database.
  162.     dbName = BiblioPath()       ' BiblioPath is a function in READINI.BAS
  163.     Set db = DBEngine.Workspaces(0).OpenDatabase(dbName)
  164.     ' Open a snapshot-type recordset on the [Titles] Table, selecting only
  165.     ' those titles published in 1993 or 1994. Sort the records by the ISBN
  166.     ' number.
  167.     
  168.     sql = "SELECT [Title] FROM [Titles]"
  169.     sql = sql & " WHERE [Title] LIKE '*" & titleText & "*'"
  170.     sql = sql & " AND [Year Published] BETWEEN " & startYear & " AND " & endYear
  171.     sql = sql & " ORDER BY [Title]"
  172.     Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
  173.     
  174.     ' If there is at least one record in the recordset, move through the
  175.     ' recordset a record at a time until the end of the file (EOF) is
  176.     ' reached. Display each record in the unbound list box lstTitles.
  177.     
  178.     If rs.RecordCount > 0 Then
  179.         rs.MoveFirst
  180.         Do While Not rs.EOF
  181.             lstTitles.AddItem rs![Title]
  182.             rs.MoveNext
  183.         Loop
  184.     End If
  185.     
  186. Exit Sub
  187.     
  188. LookupError:
  189.  
  190.     ' Just display Visual Basic's default error message.
  191.     
  192.     MsgBox Error(Err)
  193.     
  194. Exit Sub
  195.         
  196. End Sub
  197.  
  198. Private Sub cmdClose_Click()
  199.     End
  200. End Sub
  201.  
  202.